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This paper describes a technique for building a single system pack 
which contains Autocoder, COBOL, FORTRAN, RPG and their 
associated libraries on disk. The work areas for the compilers 
(and the loaderfile in FORTRAN) are assigned to a second drive. 
The following programs were consolidated on a single pack on born 
a 12K 1440 and a 12K 1401: 


1401- AU- 008 

1401-FO-051 

1401-10-068 
1401- RG- 032 
1401-UT-053 
file orgs. 


AUTOCODER on disk, 1440-CB-073 COBOL for 
1440/or/60, 

FORTRAN IV on disk, 1401-01. 1. 051 PALE OR 
1440-01. 0. 001 PALE, 

1401/60 I DCS on disk OR_ 1440-10-010 IOCS, 

1401/1311 RPG on disk OR 1440-RG-020 1440/1311 RPG, 
1401/1311 disk file organization OR 1440-UT-040 disk 


For IBM Internal Use Only 




Z77-8048 


Page 1 


Page 2 


I ntroducti'on 

The announcement of the special educational allowance for the 1401 gave 
considerable impetus to marketing disk systems for academic usage allow- 
ing for instruction in RPG, COBOL, FORTRAN, as well as Autocoder/ 

IOCS and File Organization Routines. 

Under present techniques, in order to provide the above language capabili- 
ties, a customer might need to generate and reserve as many as four systems 
packs. 

For those 1401/1440/1460 users who have a two or more disk drive system and 
multi-language requirements, the technique discussed in this paper may offer 
an avenue for efficient disk pack usage. 

The technique used for consolidation was to change the standard system assign- 
mentsso that the system area was expanded, the libraries (FORTRAN & Autocoder/ 
COBOL/IOCS/Fi le Organization) were extended to cover the rest of the systems 
pack. Work Area and Loader File assignments were made to the second drive. 


Procedure 

Use the directions for "Building a ...System" in SRL Manuals C24-3242 
and C24-3259 as a guide with the following modifications. 

I. Clear Disk Utility Program parameters. 


Mode 

Address 

MOVE 

000000-000199 

LOAD 

000200-000259 

MOVE 

000260-000299 

LOAD 

000300-008599 

MOVE 

008600-19979 


Run the Write File-Protected Addresses Deck. The Control Card of the 
Deck should be modified to read: 


1-15 

Fi 1 e-Protect on 

17-20 

1311 

22 

0 

24-42 

From Normal Address 

44-49 

002500 

51-52 

To 

54-59 

008600 


3. . Run the Autocoder System Control Card Build Deck as indicated in 

C24-3259. 


4. Run the Autocoder Update Deck without the Macros. 
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IBWf GENERAL PURPOSE CARO PUNCHING 


NOTES: 


FIELD IDENTIFICATION 



MKIBEHM 






ft! 


0300000000 

0300000000 

0300000000 

0300000000 

0300000000 

0330000000 

0300000001 


! S Y STM UPDATI 0P, PATCH 

2 8 2 7 5 5 0 0 0 DMP 38432686000262541002 020 

SYSTM UPDATS EL , P AT CH 

4W1.6 5.8X1 6 L6 9 MK84L01 MG2 2 3 6 4 MG28590 B334 BT87 1 2 9 002 0 1 0400 11200200480 

5W7.A5.9 0 1.2,4.00 2 0 1 1 2 0 0 1 2 9 0020 1 24 0 0 9 3 80 00 1 0 5 ' 0 50 0 000 8 6 0 0.78 00 0 0,8400200 7 

i 

6 XJ3 3 6 1 8 0 0 0 0.89 0 0 2 0 0 8 4 0 0 MO 094002008900002 MO 09900 2.0 09400002 MO 104002009 
UPDAT FHW, P AT CH 

WK1 M01 12002004800002 WK 2M0 1 24 0 0 20 1 1 2 0 0 00 2 WK 4 0 

WK3M0 1 2 9 0 0 2 0 1 2 4 0 0 0 0 2 2 0 1 0 4 0 0 0 0 1 WK5 0MI T . CT 

READER 1 CRD 0MI T L D RM 0 1 2 0 0 0 2 0 1 0 4 0 0 0 0 1 TAB L 

L ST PRINTER 2 MSG PRINTER 2 L I B MO 1 9 3 8 0 0 0 1 0 5 0 

UP DAT DM2 , P AT CH 

HALT END SYSTEM C 0NT R^> L U PDA TE , . . C0NS0 LI DATE D 

FI GUfcE 1 

Printed in U.S. A. X20-8030-03 UM/025 p^GE 


T. SYS TM. 

8.2,4.2 6.1 FILE 
»3 0 3 |6 1 Ml T 
103 .6 4.6 2. L 
11 4-2.6 6;2.E 

T- { 

14 1 C0 B ft) L 

150,4 2 02 + 2 . 

ie|c,l 9.0,1 M 

IT U : ...... 

18 

19 , 


JOB 


BY 


DATE 
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PUNCHING INSTRUCTIONS 


WRITTEN AS: 













PUNCH AS: 
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11. Modify the RPG System Card Deck (I440-RG-024 or I40I-RG-032) 
as fol lows : 

Change column 35 of card 00IIRPG I (identified in Cols 
72-80) from 0 to 2. 

Change columns 36 & 37 of card 2933A5900 (identified in 
Cols 72-80) from 91 to 76. 

12. LOAD the entire RPG Deck as instructed in C24-3300. 

13. PACE (a type III program). May be loaded in the area indicated 
in Figure 2. 

All standard assignments for the work files and loader files as 
listed in the respective language manuals will have exactly the 
same sector addresses . They will, however, be assumed on device #2. 
See figure 44 in C24-3322 and figure 32 in C24-3259 for work area, 
and . loader area assumed sector assignments. A careful perusal o.f 'the 
manuals and the cards listed in Figure I will allow any assumed 
assignments desired to be made. 
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CONSOLIDATED SYSTEMS PACK 
DISK MAP 


Fi le 


Ranqe 

Autocoder Preprocessor 

000000 

- 000899 

RPG 

000900 

- 002499 

Autocoder, FORTRAN, COBOL 
and System Control 

002500 

- 008599 

FORTRAN Library 

008600 

- 010499 

Autocoder, COBOL, IOCS, 
File Organization Library 

010500 

- 019380 

PACE may be loaded at 

019400 

- 019799 


FI CURE 2 
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MACROS IN ALPHABETIC ORDER 
FOR. CONSOLIDATED SYSTEM PACK 


ACEPT 

ADD 

ALCOM 

CALL 

CLOSE 

COMPR 

CSADD 

CSDL1 

CSDL2 

CSLOD 

CSUNL 

DCLOS 

DIVDE 

DIVID 

DIVMC 

DSPLY 

DTFF1 

DiFTP 

EDIT1 

'EXPIN 

EXPNI 

FEDRL 

FGCOM 

FILE 

FILE1 

FILE2 

FILE3 

FILE4 

FILES 

FILE6 

GET 

GOTOD 

IFALP 

IFNUM 

INDIX 


IOCS 

LBRCL 

LOOP 

MA 

MACOP 
MLTPY 
MPYMC 
MULTY 
MVALL 
MVFTR 
OPEN 
OVLAY 
PASS1 
PASS 4 
PUT 
RDLIN 
RELSE 
RNDEL 
RNUNL 
SCAN 
SEEK 
SKIP 
SPACE 
SPLIT 
SUB 
SUBS1 
SUBS2 
SUBS3 
SYSCL 
TRAIL 
XAMIN 
18000 
9000F 
90001 



